#lang rosetta-racket


(require "test-cone-frustum.rkt")

(provide test-cone-frustum-example)


(define (test-cone-frustum-example)
  (view-perspective
   (list
    (normal-cone-frustum)
    (normal-cone-frustum-inv)
    (stretched-cone-frustum)
    (stretched-cone-frustum-inv)
    (shrunk-cone-frustum)
    (shrunk-cone-frustum-inv))))